Invisible Universe/Invisible Universe (1995)(Voyager)[Mac-PC].iso/mac/UNIVERSE/SHARED.DIR/01009_Script_playHelp

Text File | 1995-11-21 | 10KB | 395 lines

--on frames where help movie plays
--on exitFrame
--  GHelpIdle
--  go to the frame
--end
--
--on the last frame of the movie
--on idle
--end idle
--
--on exitFrame
--  global gHelpDuration
--  if the movieTime of sprite 48 = gHelpDuration then playHelp
--  else go to the frame
--end
--
--in the movie cast's script
--on mouseDown
--  global gFiorellaOnStage
--  if gFiorellaOnStage then playHelp
--end mouseDown

on playHelp whichArea
  global gFiorellaOnStage,gMovieFrame,gHelpDuration, gHelpMovie,gFrameToReturnTo
  global gMovieTimeList, gMovieTimeIndex, gMovieTimeMax
  global gFixPalShared, gMovieToReturnTo, gVolume
  global gTOCMovie


  --put ">>> which area = " & whichArea

  global gCom, gCurLabelProp

  if the timer < 60 then exit

  --set the trace = 1

  --put ">>>playHelp which area = " && whichArea
  if gFiorellaOnStage then
    --put ">>>Playhelp called during a movie."
    stopHelp

  else
    cursor 4

    set gTOCMovie = 0

    if char 1 of the frameLabel = "O" then
      --popRetraceMenu 1
      go to Label("OM")
    end if


    put the frame into gFrameToReturnTo

    if not voidP(whichArea) then
      --put ">>> not void whichArea"

      do field (whichArea && "Movie Times")
      set gMovieTimeMax = getAt(gMovieTimeList, 1)

      put label(whichArea&&"Help") into gMovieFrame
      set ct = count(gMovieTimeList)
    end if

    if the movie = "TOC.DIR" then
      set gTOCMovie = 1
      set gMovieToReturnTo = the Movie

      if the frameLabel = "TOCM" then
        set gFrameToReturnTo = label("TOCM Video")
      end if

      if char 1 of the frameLabel <> "P" then
        set gMovieFrame = 2
        set newMovie = the frameLabel & ".DIR"
        go to movie newMovie
      else
        set gMovieFrame = integer(char 2 of the frameLabel) * 2
        set newMovie = "P.DIR"
        go to frame (gMovieFrame-1) of movie newMovie
      end if

      set the visible of sprite 48 to false

      go to the frame + 1
    end if

    if voidP(whichArea) or ct = 0 then

      --
      --
      -- Check if the video was placed elsewhere
      --
      updateStage
      --put ">>>playmovie the castnum of sprite 48 = " & the castnum of sprite 48

      if (the castNum of sprite 48) = 0 then
        set newMovie = gCurLabelProp & ".DIR"

        set gMovieToReturnTo = the Movie

        go to movie newMovie

        set the visible of sprite 48 to false

        go to the frame + 1
      end if

      --
      --
      -- If a movie does not have key frames, then see if it is in an
      -- external file
      --

      set gMovieFrame = the frame
      set ct = 0


    end if



    if the machineType <> 256 then
      if voidP(gFixPalShared) then setupFixPal

      gFixPalShared(mPatchIt)
    end if



    set gFiorellaOnStage to true


    --unload 1,5000

    put the freeBytes
    if the freeBytes < 500000 then
      --put ">>> playhelp: calling maxmem"
      --unloadCast 1,1000
      if the machineType <> 256 then maxmem()
      put the freeBytes
    end if

    set gMovieTimeIndex = 1
    --put ">>>Area: " & whichArea


    --set the visible of sprite 48 to false

    -- keep a copy of the poetry titles on screen


    --put ">>> preloading" & gMovieFrame && gMovieFrame+ct
    if ct = 0 and the frame <> gMovieFrame then
      set the preLoadEventAbort = 0
      preload gMovieFrame, gMovieFrame+ct
      set the preLoadEventAbort = 1
    end if

    go frame gMovieFrame

    --puppetSprite 48,true

    --updateStage

    --set the preLoadRam = 1024

    set the movieTime of sprite 48 to 0
    put the number of cast(the castNum of sprite 48) into gHelpMovie

    if the pausedAtStart of cast gHelpMovie <> 1 then
      Alert "[This is a minor problem, but should be noted.]" & RETURN & RETURN & "Please enable " & quote & "paused at start" & quote & " for cast member " & gHelpMovie & " in movie: " & the movie & "."
    end if

    set the directToStage of cast gHelpMovie to true
    put the duration of cast gHelpMovie into gHelpDuration

    --put ">>>Duration = " & gHelpDuration

    --put ">>> set the preload"
    --set the preLoad of cast gHelpMovie to true
    --put ">>> do the preload"
    --preLoadCast gHelpMovie
    --put ">>> done preloading..."
    --updateStage
    --set the movieRate of sprite 48 to .01
    --go to the frame

    set the visible of sprite 48 to true

    if the machineType <> 256 then
      set the movieRate of sprite 48 to .01
    end if

    updateStage -- go to the frame

    set the volume of sprite 48 to gVolume

    --updateStage
    starttimer

    cursor -1

    set the movieRate of sprite 48 to 1
  end if
end playHelp

on stopHelp
  global gFiorellaOnStage, gHelpMovie, gFrameToReturnTo, gHelpDuration, gMovieFrame
  global gCom, gNavPalette
  global gCurLabelProp, gMovieToReturnTo, gVolume
  global gTOCMovie

  if the timer < 60 then exit
  if the movieTime of sprite 48 < 60 then exit

  cursor 4

  set gFiorellaOnStage to false

  repeat with i = 1 to 8
    set the volume of sprite 48 to (the volume of sprite 48)/2
    set t = the ticks + 10
    repeat while the ticks < t
      go to the frame
    end repeat
  end repeat


  set the visible of sprite 48 to false
  set the movieRate of sprite 48 to 0
  set the volume of sprite 48 = gVolume

  updateStage

  --set the movieTime of sprite 48 to 0
  --set the preLoad of cast gHelpMovie to false
  --unloadCast gHelpMovie
  --set the directToStage of cast gHelpMovie to false

  --set the preLoadRam = 0

  if gTOCMovie then
    go to frame gFrameToReturnTo of movie gMovieToReturnTo
  end if


  if the movie = (gCurLabelProp & ".DIR") then
    go to frame gCurLabelProp && "Video" of movie gMovieToReturnTo
    go to gFrameToReturnTo
    showButtons
    if char 1 of the movie = "O" then tell gNavPalette to lOpenNavPalette

    --    goGo(gCurLabelProp, 1)
  else

    if not(gCom) then
      --set the visible of sprite 48 to true
      --puppetSprite 48,false
    else
      --set the castNum of sprite 48 = 0
      showButtons
      tell gNavPalette to lOpenNavPalette
    end if

    go frame gFrameToReturnTo

  end if

  put empty into gFrameToReturnTo
  put empty into gMovieToReturnTo



  --updateStage
  put empty into gHelpMovie
  put 0 into gHelpDuration
  put 0 into gMovieFrame

  cursor -1

end stopHelp

on TOCHelpIdleXXXX
  global gFiorellaOnStage, gMovieFrame, gHelpDuration
  if gFiorellaOnStage then
    put the movieTime of sprite 48 into it
    if it < 2040 then --intro
      go frame gMovieFrame
    else if it < 2107 then --Celestial Objects
      go frame gMovieFrame+1
    else if it < 2354 then
      go frame gMovieFrame+2
    else if it < 2413 then --Guided Tour
      go frame gMovieFrame+3
    else if it < 2450 then
      go frame gMovieFrame+4
    else if it < 2624 then --Movies
      go frame gMovieFrame+5
    else if it < 2650 then
      go frame gMovieFrame+6
    else if it < 2698 then --Music
      go frame gMovieFrame+7
    else if it < 2947 then
      go frame gMovieFrame+8
    else if it < 3024 then --Poetry
      go frame gMovieFrame+9
    else if it < 3448 then
      go frame gMovieFrame+10
    else if it < 3538 then --Menubar
      go frame gMovieFrame+11
      installMenu cast "TOC Help Menu"
    else if it < 3556 then
      go frame gMovieFrame+12
    else if it < 3620 then --Fiorella
      installMenu 0
      updateStage
      go frame gMovieFrame+13
    else if (it < gHelpDuration) then
      go frame gMovieFrame+14
    else stopHelp
  end if
end TOCHelpIdle


on TOCHelpIdle
  global gMovieTimeMax

  if the movieTime of sprite 48 < gMovieTimeMax then
    exit
  else

    global gMovieTimeList, gMovieTimeIndex

    set gMovieTimeIndex = gMovieTimeIndex + 1
    set gMovieTimeMax = getAt(gMovieTimeList, gMovieTimeIndex)

    if listP(gMovieTimeMax) then
      do getAt(gMovieTimeMax, 2)
      set gMovieTimeMax = getAt(gMovieTimeMax, 1)
    end if

    go to the frame + 1

  end if
end TOCHelpIdle

--put ">>> gMovieTimeMax" && gMovieTimeMax && the movieTime of sprite 48 && the frame


on OHelpIdle
  global gFiorellaOnStage
  global gMovieTimeList, gMovieTimeIndex, gMovieTimeMax

  if gFiorellaOnStage then
    if the movieTime of sprite 48 < gMovieTimeMax then
      go to the frame
    else
      go to the frame + 1
      set gMovieTimeIndex = gMovieTimeIndex + 1
      set gMovieTimeMax = getAt(gMovieTimeList, gMovieTimeIndex)
      if listP(gMovieTimeMax) then
        do getAt(gMovieTimeMax, 2)
        set gMovieTimeMax = getAt(gMovieTimeMax, 1)
      end if
      --put ">>> gMovieTimeMax" && gMovieTimeMax && the movieTime of sprite 48 && the frame
    end if
  end if

  --updateStage

end OHelpIdle

--
--
-- Okay, what does this routine do???
--
on GHelpIdle
  global gFiorellaOnStage, gMovieFrame,gHelpDuration
  --g for generic
  if gFiorellaOnStage then
    put the movieTime of sprite 48 into it

    if (it < gHelpDuration) then
      go frame gMovieFrame+1
    else
      --      alert "GHelpIdle handler... bizarre case..."
      --asdf
      stopHelp
    end if

  end if
end GHelpIdle